home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / docs / help / ascii_table.lha / ascii_table / button2ascii.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-10  |  614 b   |  31 lines
  1. /* Install.rexx
  2.  
  3. */
  4. OPTIONS RESULTS
  5. OPTIONS FAILAT 10
  6.  
  7.  
  8. open('Button2ascii','CON:60/100/350/200/Button2ascii/cds')
  9.  
  10. name='IBrowse'
  11. check='IBrowse.prefs'
  12. ok=''
  13. call writeln 'Button2ascii','Press a button and ENTER'
  14. call writeln 'Button2ascii','ENTER twice to quit'
  15. DO FOREVER
  16.  
  17.  
  18.  
  19. /*    open('input','Button2ascii','R') */
  20.     ok=readln('Button2ascii')
  21.     len=LENGTH(ok)
  22.     ok=LEFT(ok,1)
  23.  
  24.     IF ok~='' THEN call writeln 'Button2ascii',ok||' = '||C2D(ok)
  25.     IF ok='' & oldok='' THEN BREAK
  26.     IF ok='' & len=1 THEN call writeln 'Button2ascii','32 = Space'
  27.     IF ok='' & len=0 THEN call writeln 'Button2ascii','13 = ENTER'
  28.     oldok=ok
  29. END
  30.  
  31.